home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / DENKLEM.BAS < prev    next >
BASIC Source File  |  1995-05-12  |  1KB  |  43 lines
  1. 10 ' 2. DERECE DENKLEMÿN KÖKLERÿNÿ BULAN PROGRAM. DENKLEM.BAS
  2. 20 CLS: PRINT "DENKLEMÿN KATSAYILARINI GÿRÿN":PRINT "AX²+BX+C"
  3. 30 INPUT  "A=";A:      INPUT "B=";B:       INPUT "C=";C
  4. 40 'CIKIS
  5. 50 IF A=0 AND B=0 AND C=0 THEN 280
  6. 60 IF A=0 THEN PRINT:PRINT "A SIFIR OLAMAZ !":GOTO 260
  7. 70 '           DELTANIN HESAPLANMASI
  8. 80                  D=B^2-4*A*C
  9. 90 '
  10. 100 'DENKLEM VE DELTANIN YAZILMASI
  11. 110 CLS:PRINT "DENKLEM:  ";: GOSUB 300:'DENKLEM YAZILIMI'
  12. 120 LOCATE 3,1:PRINT "DELTA=";D:
  13. 130 IF D>0 THEN GOSUB 390:GOTO 160
  14. 140 IF D=O THEN GOSUB 390:GOTO 190
  15. 150 IF D<O THEN 230
  16. 160 '             D>0
  17. 170 LOCATE 5,1:PRINT "Ç={";K1;",";K2;"}"
  18. 180 GOTO 260:'CIKIS
  19. 190 '             D=0
  20. 200 LOCATE 5,1:COLOR 15: PRINT"DENKLEMÿN TEK KÖKÜ VAR !":COLOR 7
  21. 210 LOCATE 7,1:PRINT "Ç={";K1;"}"
  22. 220 GOTO 260 :'CIKIS
  23. 230 '             D<0
  24. 240 LOCATE 5,1:COLOR 31: PRINT "DENKLEMÿN GERÇEL KÖKLERI YOK!":SOUND 1000,2:COLOR 7
  25. 250 'CIKIS
  26. 260 PRINT:PRINT:PRINT:PRINT:PRINT "DEVAM ÿÇÿN <ENTER>":
  27. 270 Q$=INPUT$(1):IF ASC(Q$)=13 THEN 20
  28. 280 PRINT:PRINT:PRINT:PRINT:COLOR 19:PRINT"PROGRAM BÿTMÿ₧TIR !":COLOR 7
  29. 290 END
  30. 300 'DENKLEM YAZIMI
  31. 310 IF A=1 THEN PRINT "x²"; ELSE PRINT A;"x²";
  32. 320 IF B=0 THEN 350
  33. 330 IF B>0 THEN PRINT "+";
  34. 340 IF B=1 THEN PRINT "x"; ELSE PRINT B;"x";
  35. 350 IF C=0 THEN 380
  36. 360 IF C>0 THEN PRINT "+";
  37. 370 PRINT C
  38. 380 RETURN
  39. 390 'DENKLEM KÖKLERÿNÿN HESAPLANMASI
  40. 400 K1=(-B-(SQR(D)))/(2*A)
  41. 410 K2=(-B+(SQR(D)))/(2*A)
  42. 420 RETURN:' MURAT NECÿOªLU
  43.